home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / egavga.swg / 0180_VESA Putpixel.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-03-26  |  2.7 KB  |  59 lines
  1. {
  2. > Ok, here goes, I'm trying to write my own putpixel routine for
  3. > 640x480x256 and I have one working but the fastest I can do a
  4. > fullscreen memory write using it is 26.85 seconds! Using BGI drivers I
  5. > get 5-6 seconds! what am I missing? Is it because I'm using TP? does
  6. > anyone have inline assembly code for a putpixel at this resolution? I'm
  7. > using mode 101h with VESA driver loaded. I would really like to know
  8. > what I'm missing here! Any help is greatly appreciated.
  9.  
  10. Here's something I was working on... It's been a while since I touched
  11. these but they work perfectly on my video (ATI/XL24/VESA 1.2). It takes
  12. about 2 seconds to do a full 640x480 (VESA 101) on my 386DX/33.
  13.  
  14. I'm not sure if it will work on your system and I think it will work
  15. only with window granularity of 64K. Please tell me if it works with
  16. yours, and what granularity is 101 using on your system.
  17. }
  18.  
  19. var
  20.  VesaBank : Word;     { bank cache     }
  21.  VesaSeg  : Word;     { video segment  }
  22.  VesaBPL  : Word;     { bytes per line }
  23.  
  24. procedure SetPixel(X, Y : Word; C : Byte); assembler;
  25. asm
  26.  mov ax,[Y]                   { transform X/Y into one linear offset }
  27.  mul [VesaBPL]                { DX:AX = Y * VesaBPL                  }
  28.  add ax,[X]                   { DX:AX = DX:AX + X                    }
  29.  adc dx,0                     {                                      }
  30.  cmp dx,[VesaBank]            { Time to change bank?                 }
  31.  je @10                       { jump if not                          }
  32.  push ax                      { set the new memory bank...           }
  33.  
  34.  mov ax,$4F05                 { AX = 4F05h Memory Control            }
  35.  mov bx,$0000                 { BH = Set Bank / BL = Window A        }
  36.                               { DX = Memory Bank                     }
  37.  int $10                      { call VESA                            }
  38.  
  39.  mov [VesaBank],dx            { save bank # to save time later       }
  40.  
  41.  pop ax
  42. @10:
  43.  mov bx,ax                    { BX = memory offset                   }
  44.  mov ax,[VesaSeg]             { ES = Vesa segment                    }
  45.  mov es,ax                    {                                      }
  46.  mov al,[C]                   { AL = pixel value                     }
  47.  mov es:[bx],al               { show it...                           }
  48. end;
  49.  
  50. {
  51. > Also I'm wondering how to do direct memory writes to memory above 1 meg?
  52. > like 10000h etc... the highest MEM[] lets you go is FFFFh, any help there?
  53.  
  54. You will have to switch to protected mode to do that. If you just want
  55. to store memory above 1meg, and not access specific parts of it (for
  56. memory viewers, etc.), you can use EMS, XMS or switch over to BP7's
  57. DPMI/protected mode.
  58. }
  59.